home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / dbm_t < prev    next >
Text File  |  1992-02-23  |  3KB  |  115 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/op/dbm.t.old    Tue Apr 23 22:38:40 1991
  14. --- t/op/dbm.t    Thu Nov 14 08:57:10 1991
  15. ***************
  16. *** 2,8 ****
  17.   
  18.   # $Header: dbm.t,v 4.0 91/03/20 01:51:52 lwall Locked $
  19.   
  20. ! if (!-r '/usr/include/dbm.h' && !-r '/usr/include/ndbm.h') {
  21.       print "1..0\n";
  22.       exit;
  23.   }
  24. --- 2,11 ----
  25.   
  26.   # $Header: dbm.t,v 4.0 91/03/20 01:51:52 lwall Locked $
  27.   
  28. ! eval('umask');    # won't work on MS-DOS
  29. ! $msdos = $@;
  30. ! 
  31. ! if (!$msdos && !-r '/usr/include/dbm.h' && !-r '/usr/include/ndbm.h') {
  32.       print "1..0\n";
  33.       exit;
  34.   }
  35. ***************
  36. *** 9,20 ****
  37.   
  38.   print "1..12\n";
  39.   
  40. ! unlink <Op.dbmx.*>;
  41. ! umask(0);
  42. ! print (dbmopen(h,'Op.dbmx',0640) ? "ok 1\n" : "not ok 1\n");
  43.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  44. !    $blksize,$blocks) = stat('Op.dbmx.pag');
  45. ! print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n");
  46.   while (($key,$value) = each(h)) {
  47.       $i++;
  48.   }
  49. --- 12,31 ----
  50.   
  51.   print "1..12\n";
  52.   
  53. ! if ($msdos) {
  54. !     # Not really needed, but using TMPDIR, when it's a RAM disk directory,
  55. !     # speeds this test a lot.
  56. !     if (defined($tdir = $ENV{'TMPDIR'})) {
  57. !     chdir ($tdir);
  58. !     }
  59. ! }
  60. ! 
  61. ! unlink <Op_dbmx.*>;
  62. ! umask(0) unless $msdos;
  63. ! print (dbmopen(h,'Op_dbmx',0640) ? "ok 1\n" : "not ok 1\n");
  64.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  65. !    $blksize,$blocks) = stat('Op_dbmx.pag');
  66. ! print ($msdos || ($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n");
  67.   while (($key,$value) = each(h)) {
  68.       $i++;
  69.   }
  70. ***************
  71. *** 40,46 ****
  72.   delete $h{'goner2'};
  73.   
  74.   dbmclose(h);
  75. ! print (dbmopen(h,'Op.dbmx',0640) ? "ok 4\n" : "not ok 4\n");
  76.   
  77.   $h{'j'} = 'J';
  78.   $h{'k'} = 'K';
  79. --- 51,57 ----
  80.   delete $h{'goner2'};
  81.   
  82.   dbmclose(h);
  83. ! print (dbmopen(h,'Op_dbmx',0640) ? "ok 4\n" : "not ok 4\n");
  84.   
  85.   $h{'j'} = 'J';
  86.   $h{'k'} = 'K';
  87. ***************
  88. *** 92,98 ****
  89.   print ($ok ? "ok 8\n" : "not ok 8\n");
  90.   
  91.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  92. !    $blksize,$blocks) = stat('Op.dbmx.pag');
  93.   print ($size > 0 ? "ok 9\n" : "not ok 9\n");
  94.   
  95.   @h{0..200} = 200..400;
  96. --- 103,109 ----
  97.   print ($ok ? "ok 8\n" : "not ok 8\n");
  98.   
  99.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  100. !    $blksize,$blocks) = stat('Op_dbmx.pag');
  101.   print ($size > 0 ? "ok 9\n" : "not ok 9\n");
  102.   
  103.   @h{0..200} = 200..400;
  104. ***************
  105. *** 102,105 ****
  106.   print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
  107.   print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
  108.   
  109. ! unlink 'Op.dbmx.dir', 'Op.dbmx.pag';
  110. --- 113,116 ----
  111.   print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
  112.   print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
  113.   
  114. ! unlink 'Op_dbmx.dir', 'Op_dbmx.pag';
  115.